COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "STREAK"
C00003 ENDMK
C⊗;
BEGIN "STREAK"
REQUIRE "DDHDR.SAI[GRA,HPM]" SOURCE_FILE;
INTEGER I,J;
DDINIT;
SCREEN(0,0,10,10);
LITEN; RECTAN(0,0,10,10);
DRKEN;
FOR I←0 STEP 2 UNTIL 8 DO
   BEGIN
   J←(I↑4+5*I↑3+3*I↑2+7*I+2) MOD 10;
   RECTAN(I,J,I+1,J+1);
   END;
INVEN; FNTPOS(1,1); FNTEXT(0,0,0,"See the streaks following the black blocks?");
DPYUP(-1); DPYUP(-1);
WHILE TRUE DO CALL(60,"SLEEP");
END;